home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_4_mouse script - new screen.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.1 KB  |  51 lines
  1. property pMySprite, pMyMember, pMyMember2, pMyMember3
  2. global gProject, gSize, gCast, gPatScrListSelect, gHotspotPoint
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8.   pMyMember3 = pMyMember + 1
  9. end
  10.  
  11. on mouseWithin me
  12.   set the memberNum of sprite pMySprite to pMyMember3
  13.   case the currentSpriteNum of
  14.     "15":
  15.       put "PixelToolbox credits & link to AxiomX Web site." into field "status"
  16.   end case
  17. end
  18.  
  19. on mouseLeave me
  20.   set the memberNum of sprite pMySprite to pMyMember
  21.   case the currentSpriteNum of
  22.     "15":
  23.       put EMPTY into field "status"
  24.   end case
  25. end
  26.  
  27. on mouseDown me
  28.   repeat while the mouseDown
  29.     set the memberNum of sprite pMySprite to pMyMember2
  30.     updateStage()
  31.   end repeat
  32. end
  33.  
  34. on mouseUp me
  35.   set the memberNum of sprite pMySprite to pMyMember3
  36.   case the currentSpriteNum of
  37.     "15":
  38.       aboutPixelToolbox()
  39.     "73":
  40.       startNewProject()
  41.   end case
  42. end
  43.  
  44. on startNewProject
  45.   if gProject = "cursor" then
  46.     gHotspotPoint = point(0, 0)
  47.   end if
  48.   gPatScrListSelect = 1
  49.   go(gCast && gProject && gSize)
  50. end
  51.